home *** CD-ROM | disk | FTP | other *** search
- object frmRegExpTester: TfrmRegExpTester
- Left = 37
- Top = 192
- ActiveControl = TntEdit1
- AutoScroll = False
- BorderIcons = [biSystemMenu]
- Caption = 'Regular expression tester'
- ClientHeight = 231
- ClientWidth = 413
- Color = clBtnFace
- Constraints.MinHeight = 220
- Constraints.MinWidth = 240
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnHide = FormHide
- OnShow = FormShow
- DesignSize = (
- 413
- 231)
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TTntLabel
- Left = 8
- Top = 12
- Width = 93
- Height = 13
- Caption = 'Regular expression:'
- end
- object Label2: TTntLabel
- Left = 8
- Top = 60
- Width = 48
- Height = 13
- Caption = 'Match on:'
- end
- object Label3: TTntLabel
- Left = 8
- Top = 146
- Width = 33
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'Result:'
- end
- object TntEdit1: TTntEdit
- Left = 8
- Top = 28
- Width = 397
- Height = 26
- Anchors = [akLeft, akTop, akRight]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial Unicode MS'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = TntEdit1Change
- end
- object TestString: TPlusMemoU
- Left = 8
- Top = 76
- Width = 397
- Height = 61
- Cursor = crIBeam
- Alignment = taLeftJustify
- HideSelection = False
- ScrollBars = ssVertical
- WordWrap = False
- OnChange = TntEdit1Change
- AltFont.Charset = DEFAULT_CHARSET
- AltFont.Color = clWindowText
- AltFont.Height = -11
- AltFont.Name = 'Arial Unicode MS'
- AltFont.Style = [fsUnderline]
- CaretWidth = 1
- ColumnWrap = 0
- DisplayOnly = False
- EnableHotKeys = False
- EndOfTextMark.Color = clRed
- EndOfTextMark.Style = psClear
- Justified = False
- LeftMargin = 1
- LineHeight = 0
- Options = [pmoWrapCaret, pmoInsertKeyActive, pmoWideOverwriteCaret, pmoLargeWordSelect, pmoAutoScrollBars]
- Overwrite = False
- RightLinePen.Color = clGray
- RightLinePen.Style = psDot
- ScrollTime = 0
- SelBackColor = clHighlight
- SelTextColor = clHighlightText
- Separators = #9#10#13' $%&,./:;<=>'
- SpecUnderline.Color = clRed
- UpdateMode = umImmediate
- Version = 'v6.2h Professional ed.'
- Anchors = [akLeft, akTop, akRight, akBottom]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial Unicode MS'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- TabStop = True
- OnKeyDown = TestStringKeyDown
- end
- object Edit1: TTntEdit
- Left = 8
- Top = 162
- Width = 397
- Height = 24
- Anchors = [akLeft, akRight, akBottom]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 2
- end
- object CancelBtn: TMMTNTBItBtn
- Left = 328
- Top = 194
- Width = 78
- Height = 25
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = '&Close'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = CancelBtnClick
- end
- object Button1: TMMTNTBItBtn
- Left = 8
- Top = 194
- Width = 75
- Height = 25
- Anchors = [akLeft, akBottom]
- Caption = 'Help'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = Button1Click
- end
- end
-